load("nTweetsPerDay.RData")

library(ggplot2)

p <- ggplot(nTweetsPerDay, aes(x=created_date, y=count)) +
  geom_line() + 
  xlab("")

ggsave("tweet_trends.pdf",width=5,height=3)